   1 .
   2 .
   3 .
   5 CLEAR ;A=0;NT=0;&(21)=205;&(22)=120;&(20)=0
  30 PRINT "WE",
  40 FOR B=1TO 15
  50 A=A+1;IF A=2GOTO 80
  70 IF A=3GOTO 90
  75 &(18)=50;&(19)=81;GOTO 100
  80 &(18)=44;&(19)=100;&(17)=22;GOTO 100
  90 &(18)=50;&(19)=105;&(17)=19
 100 FOR B=1TO 100
 110 NEXT B;CX=-50
 130 PRINT "WISH",;BC=197;FC=82
 140 IF A=2GOTO 150
 145 IF A=3GOTO 160
 146 GOTO 170
 150 &(19)=110;&(18)=33;&(17)=28;GOTO 180
 160 &(19)=80;&(18)=29;GOTO 180
 170 &(19)=100;&(18)=37
 180 FOR B=1TO 100
 190 NEXT B
 200 &(18)=0;CX=-10;PRINT "YOU",;BC=83;FC=190
 230 IF A=2GOTO 240
 235 IF A=3GOTO 250
 237 GOTO 260
 240 &(18)=33;GOTO 270
 250 &(18)=29;GOTO 270
 260 &(18)=37
 270 FOR B=1TO 50
 280 NEXT B;CX=10
 300 PRINT " A",
 310 IF A=2GOTO 320
 315 IF A=3GOTO 330
 316 GOTO 350
 320 &(18)=29;&(19)=112;GOTO 360
 330 &(18)=27;GOTO 360
 350 &(18)=33
 360 FOR B=1TO 20
 370 NEXT B;CX=30
 380 &(17)=0;PRINT "MER",;BC=202;FC=85
 400 IF A=2GOTO 410
 405 IF A=3GOTO 420
 406 GOTO 440
 410 &(19)=110;&(18)=33;&(17)=28;GOTO 450
 420 &(19)=105;&(18)=29;&(17)=21;GOTO 450
 440 &(19)=120;&(18)=37
 450 FOR B=1TO 20
 460 NEXT B;CX=50
 480 PRINT "RY";BC=81;FC=214
 490 IF A=2GOTO 500
 495 IF A=3GOTO 510
 496 GOTO 530
 500 &(18)=37;&(17)=26;GOTO 540
 510 &(18)=33;&(19)=80;&(17)=19;GOTO 540
 530 &(19)=100;&(18)=40
 540 FOR B=1TO 8
 550 NEXT B;CX=-40;CY=20
 570 PRINT "CHRIST",
 575 BC=88;FC=7
 580 IF A=2GOTO 590
 585 IF A=3GOTO 600
 586 GOTO 620
 590 &(19)=100;&(18)=39;&(17)=24
 595 GOTO 630
 600 &(19)=90;&(18)=37;&(17)=18
 605 GOTO 630
 620 &(19)=90;&(18)=44
 625 FOR B=1TO 5STEP 1;NEXT B
 630 FOR B=1TO 75
 640 NEXT B
 641 &(18)=0
 670 PRINT "MAS"
 675 BC=202
 680 IF A=2GOTO 690
 685 IF A=3GOTO 700
 686 GOTO 720
 690 &(19)=100;&(18)=50;&(17)=33
 695 GOTO 730
 700 &(19)=100;&(18)=44;&(17)=19
 705 GOTO 730
 720 &(19)=100;&(18)=44
 730 FOR B=1TO 100
 740 NEXT B
 745 &(19)=0;&(17)=0;&(18)=0
 750 CX=-79;CY=40
 757 IF A=3GOTO 770
 760 GOTO 30
 770 &(20)=129
 771 CX=-75;CY=0
 780 PRINT "AND",
 790 &(18)=50;&(17)=19
 870 FOR B=1TO 50
 872 NEXT B
 878 &(18)=0;&(17)=0
 880 PRINT "       A",
 890 &(18)=50;&(17)=24
 970 FOR B=1TO 100
 972 NEXT B;CX=20;&(17)=0
 990 PRINT "HAP",
 995 &(18)=44;&(17)=28;&(19)=45
1000 FOR B=1TO 175
1010 NEXT B
1050 PRINT "PY"
1055 &(18)=33;&(17)=30;&(19)=50
1060 FOR B=1TO 175
1070 NEXT B
1091 &(18)=0
1099 CY=-20;CX=-30
1100 PRINT "NEW"
1110 &(18)=40;&(19)=56;&(17)=33
1120 FOR B=1TO 200
1130 NEXT B
1200 CX=20;CY=-30
1210 PRINT "YEAR!"
1220 &(18)=37;&(19)=59;&(17)=37
1230 FOR B=1TO 300
1240 NEXT B
1250 &(17)=0;&(18)=0;&(19)=0;&(16)=RND (75)+19;GOTO 5
RUN 
